EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/comm/bbs/Hydra11s.lha/HBBS/Source/Oberon/BBSConstants.mod

Text File | 1996-07-05 | 11KB | 369 lines

MODULE BBSConstants;

CONST
    AcsDlFiles* = 0;
    AcsStrDlFiles* =      "DownloadFiles";
    AcsUlFiles* = 1;
    AcsStrUlFiles* =      "UploadFiles";
    AcsSysopComment* = 2;
    AcsStrSysopComment* = "SysopComment";
    AcsReadMail* = 3;
    AcsStrReadMail* =     "ReadMail";
    AcsWriteMail* = 4;
    AcsStrWriteMail* =    "WriteMail";
    AcsScanMail* = 5;
    AcsStrScanMail* =     "ScanMail";
    AcsAllowStatus* = 6;
    AcsStrAllowStatus* =  "AllowStatus";
    AcsAllowEdit* = 7;
    AcsStrAllowEdit* =    "AllowEdit";
    AcsScanFiles* = 8;
    AcsStrScanFiles* =    "ScanFiles";
    AcsAllowView* = 7;
    AcsStrAllowView* =    "AllowView";

    AcsEditHandle* = 40;
    AcsStrEditHandle* =   "EditHandle";
    AcsEditRealName* = 41;
    AcsStrRealName* =     "EditRealName";
    AcsEditPassword* = 42;
    AcsStrEditPassword* = "EditPassword";
    AcsEditGroup* = 43;
    AcsStrEditGroup* =    "EditGroup";
    AcsEditLocation* = 44;
    AcsStrEditLocation* = "EditLocation";
    AcsEditCountry* = 45;
    AcsStrEditCountry* =  "EditCountry";
    AcsEditComputer* = 46;
    AcsStrEditComputer* = "EditComputer";
    AcsEditPhoneNumber* = 47;
    AcsStrEditPhoneNumber* = "EditPhoneNumber";
    AcsEditScreenType* = 48;
    AcsStrEditScreenType* = "EditScreenType";
    AcsEditLines* = 49;
    AcsStrEditLines* =    "EditLines";
    AcsEditEditor* = 50;
    AcsStrEditEditor* =   "EditEditor";
    AcsEditProtocol* = 51;
    AcsStrEditProtocol* = "EditProtocol";

    AcsDeleteMail* = 80;      (* delete any mail ? *)
    AcsStrDeleteMail* =   "DeleteMail";
    AcsDeleteGroup* = 81;     (* delete group mail ? *)
    AcsStrDeleteGroup* =  "DeleteGroup";
    AcsDeleteAnyone* = 82;    (* delete anyones mail ? *)
    AcsStrDeleteAnyone* = "DeleteAnyone";
    AcsAllowAnsi* = 83;       (* allow ANSIs in mail ? *)
    AcsAllowSysop* = 84;      (* sysop mail ? *)
    AcsAllowPrivate* = 85;    (* private mail ? *)
    AcsAllowGroup* = 86;      (* group mail ? *)
    AcsAllowConference* = 87; (* conference mail ? *)
    AcsAllowAll* = 88;        (* all mail ? *)
    AcsStrAllowAll* =     "AllowALL";
    AcsAllowEverybody* = 89;  (* eall ? *)
    AcsStrAllowEverybody* = "AllowEverybody";
    AcsAllowMultiple* = 90;   (* multiple mail ? *)
    AcsStrAllowMultiple* = "AllowMultiple";

    AcsAttachFiles* = 91;      (* allow file attach *)
    AcsStrAttachFiles* =  "AttachFiles";

    AcsAllowMultiFiles* = 92;  (* and with following settings *)
    AcsStrAllowMultiFiles* = "AllowMultiFiles";
    AcsAllowPrivateFiles* = 93;
    AcsStrAllowPrivateFiles* = "AllowPrivateFiles";
    AcsAllowAllFiles* = 94;
    AcsStrAllowAllFiles* = "AllowAllFiles";
    AcsAllowEveryoneFiles* = 95;
    AcsStrAllowEveryoneFiles* = "AllowEveryoneFiles";
    AcsAllowGroupFiles* = 96;
    AcsUnlimTime* = 120;
    AcsStrUnlimTime* = "UnlimitedTime";
    AcsUnlimCalls* = 121;
    AcsStrUnlimCalls* = "UnlimitedCalls";
    AcsUnlimBytes* = 122;
    AcsStrUnlimBytes = "UnlimitedBytes";
    AcsUnlimChat = 123;
    AcsStrUnlimChat = "UnlimitedChat";

    (* defines for askmsg^.flags for Control program *)
    AskBBSGlobal* = 1;
    (* defines for askmsg^.flags for Node program *)
    AskStatus* = 20;

    (* error messages for HbbsLogError *)
    ErrNoError* = 0;
    ErrErrorOpening* = 1;
    ErrErrorReading* = 2;
    ErrErrorWriting* = 3;
    ErrGeneral* = 4;
    ErrNodeSettings* = 5;
    ErrDoorTimeOut* = 6;

    TypeNone* = 0;
    TypeFatal* = 1;
    TypeCritical* = 2;
    TypeImportant* = 3;
    TypeWarning* = 4;
    TypeDontCare* = 5;
    TypeMemory* = 6;

    BigStr* = 1024;

    vTypeTime* = 1;
    vTypeSmallNum* = 2;
    vTypeBigNum* = 3;
    vTypeString* = 4;
    vTypeBool* = 5;
    vTypeStringList* = 6;
    vTypeFlags* = 7;
    vTypePath* = 8;
    vTypePathList* = 9;
    vTypeWord* = 10;
    vTypeDate* = 11;

    OptSingle* = 0;
    OptMulti* = 1;

    (* possible node status *)
    StatClosed* = 0;
    StatLoading* = 1;
    StatInitializing* = 2;
    StatReady* = 3;
    StatOnline* = 4;
    StatClosing* = 5;

    (* gets sent to node program when you want a node to shutdown *)
    StatRequestClose* = 6;

    (* send to node if you want it to open or close it's window *)
    StatOpenWindow* = 7;
    StatCloseWindow* = 8;
    (* send to node if you want it to open or close it's screen *)
    StatOpenScreen* = 9;
    StatCloseScreen* = 10;

    (* login types *)
    LoginNone* = 0;
    LoginRemote* = 1;
    LoginLocal* = 2;

    (* possible flags for displaying informations in the ctrl window's status ar *)
    UpdNodeStatus* = 1;

    (* some string lenghts *)
    LenNodeStatName* = 10;
    LenCurrentLine* = 1024;
    LenMaxDoorReturn* = 255;
    LenDateStr* = 12; (* DD-MMM-YYYY + terminator *)
    LenTimeStr* = 9;  (* HH:MM:SS + terminator *)

    (* tell control program to update the currently displayed list above
       the information gadget (callers/dls/uls...) *)

    ReqUpdateInfo* = 1;

    (* message types *)
    mTypeAsk* = 1;
    mTypeStatus* = 2;
    mTypeDoorActivity* = 3;
    mTypeDoorIO* = 4;
    mTypeRequest* = 5;
    mTypeCheck* = 6;

    (* door status message types *)
    dMsgDoorStarted* = 1;
    dMsgDoorFinished* = 2;

    (* door IO messages types *)
    DoorIOWriteConStr* = 1;
    DoorIOWriteConData* = 2;
    DoorIOWriteSerStr* = 3;
    DoorIOWriteSerData* = 4;
    DoorIOWriteStr* = 5;
    DoorIOGetLine* = 6;
    DoorIOSystemDoor* = 7;
    DoorIOUserDoor* = 8;
    DoorIOHangup* = 9;
    DoorIODisplayScreen* = 10;
    DoorIODisplaySpecialScreen* = 11;
    DoorIOPausePrompt* = 12;
    DoorIOAddLastUpload* = 13;
    DoorIOContinuePrompt* = 14;
    DoorIOMenuPrompt* = 15;
    DoorIOCheckRaw* = 16;

    (* GetLine flags *)
    GlNone* = 0;            (* no flags *)
    GlHistory* = 1;         (* if set, history is enabled (up/down keys) *)
    (* if maxlen is reached then data back to the last character is copied to
       NnD^.CurrentLineWrap and return immediately *)
    GlLineWrap* = 2;
    GlImmediate* = 4;       (* return if maxlen is reached *)
    GlNoReturn* = 8;        (* does not print a CR+LF at end *)
    GlEdit* = 16;           (* enabled cursor left/right and backspace/delete *)
    GlDisplay* = 32;        (* display chars *)
    GlSysop* = 64;          (* does not write to or read from the serial port *)
    GlUserChars* = 128;     (* see NnD^.CharsAllowed *)
    GlNoBeep* = 256;        (* use with GlUserChars if you don't want a beep
                   if the user press a key not in NnD^.CharsAllowed *)
    GlNoOLM* = 512;         (* if set olm's will not interrupt the user *)
    GlNoDisturb = 1024;

    NodeGlobal* = 200000;

    InConsole* = 1;
    InSerial* = 2;

    GetAnywhere* = 0;
    GetSerial* = 1;
    GetConsole* = 2;

    DefConBufLen* = 2048; (* default length used to allocate NodeData^.ConBuffer *)
    DefSerBufLen* = 2048; (* default length used to allocate NodeData^.SerBuffer *)
    (* note: these may be reallocated bye the programm to a different length,
       so check NodeData^.Con/SerBufferLen for actual current length ! *)

    InNothing* = 0;       (* reserved *)
    InGotLine* = 1;       (* returned if function actually got a line of text *)
    InLostCarrier* = 2;   (* returned only if NnD^.LoginType # LoginNone
                 or sysop logged user off :-) *)
    InLogin* = 3;         (* returned only if NnD^.LoginType = LoginNone and
                 sysop wants to local login *)
    InShutdown* = 4;      (* will never be returned to a door, only to AwaitConnect
                 due the fact that NnD^.RequestShutdown can only
                 be set if there's no user online and therefore no door
                 can be running! *)
    InImmediate* = 5;
    InTerminal* = 6;
    InTimeOut* = 7;
    InEndChat* = 8;
    InDisplayAwait* = 9;  (* if sysop presses F4 at await connect prompt *)

    LenHandle* = 25;
    LenRealName* = 30;
    LenGroup* = 30;
    LenGeoLocation* = 20;
    LenCountry* = 20;
    LenPhoneNumber* = 20;
    LenPassword* = 20;
    LenComputerType* = 40;
    LenSentBy* = 48;
    LenTimeAccess* = 32;
    LenConfAccessFile* = 32;
    LenLeechAccessFile* = 32;

    MaxAccessSettings* = 4096;

    (* tell node what to update *)
    UpdName* = 1;
    UpdGroup* = 2;
    UpdAction* = 3;
    UpdCPSBaud* = 4;

    (* string length for actions *)
    MaxActionLen* = 29;
    MaxCPSBaudLen* = 8;
    MaxGroupLen* = 20;
    MaxNameLen* = 20;

    TimeoutDoorLoad* = 10; (* ten seconds *)

    LTRUE* = LONG(1); (* due to fact TRUE in C is not TRUE in Oberon *)
    LFALSE* = LONG(0);

    OSOnline* = LTRUE;
    OSOffline* = LFALSE;

    (* flags for UserData^.Status *)
    UserNew* = "N";
    UserValidated* = "V";
    UserDeleted* = "D";
    UserInactive* = "I";
    UserLoginsDenied* = "L";
    UserOverwritable* = "O";

    (* screen names use these when calling DOORDisplaySpecialScreen *)
    SSScreenPrivateSystem* = "PRIVATESYSTEM";
    SSScreenPrivateNode* =   "PRIVATENODE";
    SSScreenBBSTitle* =      "BBSTITLE";
    SSScreenNoNewAttAll* =   "NONEWAT_ALL";
    SSScreenNoNewAtThisTime* = "NONEWAT_THISTIME";
    SSScreenGuestLogin* =    "GUESTLOGIN";
    SSScreenJoined* =        "JOINED";
    SSScreenLoginLogo* =     "LOGINLOGO";
    SSScreenBulletin* =      "BULLETIN";
    SSScreenConfBulletin* =  "CONFBULLETIN";

    (* user level types *)
    UserTypeNormal* = "N";
    UserTypeExpert* = "X";

    (* protocol directional types *)
    pTypeUnidirectional* = 1;
    pTypeBidirectionnal* = 2;

    (* node flags *)
    nFlagNone* = 0;
    nFlagBlockSerial* = 1;
    nFlagPaged* = 2;
    nFlagCtrlC* = 4;
    nFlagOLMWaiting* = 8;
    nFlagHandlingOLM* = 16;

    (* flags for DOORContinuePrompt *)
    DefaultNone* = 0;
    DefaultYes* = 1;
    DefaultNo* = 2;
    DCPAddYN* = 4;

    (* used in NnD^.Actions, to set an access flag just use the follow:
       NnD^.Actions[ActN<Action>] = ActC<Action>;
       where action is one of the names below *)
    ActCNone* = " ";            (* all actions default to this *)
    ActNHack* = 0;
    ActCHack* = "H";            (* user failed to enter a correct password *)
    ActNCarrierLost* = 1;
    ActCCarrierLost* = "L";     (* user loss carrier *)
    ActNFilescan* = 2;
    ActCFilescan* = "S";        (* user scanned one or more filelists *)
    ActNWroteMail* = 3;
    ActCWroteMail* = "W";       (* user wrote some mail *)
    ActNReadMail* = 4;
    ActCReadMail* = "R";        (* user read some mail *)
    ActNPaged* = 5;
    ActCPaged* = "P";           (* user paged the sysop *)
    ActNUpload* = 6;
    ActCUpload* = "U";          (* user uploaded files *)
    ActNFailedUpload* = 7;
    ActCFailedUpload* = "u";    (* user failed an upload *)
    ActNDownload* = 8;
    ActCDownload* = "D";        (* user downloaded files *)
    ActNFailedDownload* = 9;
    ActCFailedDownload* = "d";  (* user failed a download *)
    ActNChangedSettings* = 10;
    ActCChangedSettings* = "C"; (* user changed it's settings *)
    ActNChattedToSysop* = 11;
    ActCChattedToSysop* = "1";  (* sysop chatted to the user *)
    ActNNukedFiles* = 12;
    ActCNukedFiles* = "X";      (* user used the nuker *)
    ActNNewUser* = 13;
    ActCNewUser* = "N";         (* user is a new user *)

    LenActions* = 14;

    (* flags for LoadConfig *)
    LCFGNone* = 0;
    LCFGNoStripComments* = 1;
    LCFGNoStripSpaces* = 2;

    (* flags for CheckRaw *)
    CRNone* = 0;
    CRNoSerial* = 1;
    CRNoConsole* = 2;

    LenDIZWidth = 45;

END BBSConstants.